class point = 
object
  val mutable longitude = 0.0
  val mutable latitude = 0.0
  method get_longitude = longitude
  method get_latitude = latitude
  method set_longitude long = longitude <- long
  method set_latitude lat = latitude <- lat
end;;
(*
class path = 
object
  val mutable name = "null"
  val mutable pathType = "null"
  val mutable numberOfPoints = 0;
  val mutable points = Array.init
  method get_name = name
  method get_pathType = pathType
  method get_numberOfPoints = numberOfPoints
  method get_points = points
  method set_name n = name <- n
  method set_pathType p = pathType <- p
  method set_numberOfPoints n = numberOfPoints <- n
  method set_points p = points <- p
end;; 
*)
class mapObject = 
object
  val mutable name = "null"
  val mutable objectType = "null"
  val mutable longitude = 0.0
  val mutable latitude = 0.0
  method get_name = name
  method get_objectType = objectType
  method get_longitude = longitude
  method get_latitude = latitude
  method set_name n = name <- n
  method set_objectType o = objectType <- o
  method set_longitude long = longitude <- long
  method set_latitude lat = latitude <- lat
end;; 

class edge =
object 
  val mutable name = "null"
v  val mutable weight = infinity
  val mutable path_one = "null"
  val mutable path_two = "null"
  method get_name = name
  method get_weight = weight
  method get_path_one = path_one
  method get_path_two = path_two
  method set_name n = name <- n
  method set_weight w = weight <- w
  method set_path_one p1 = path_one <- p1
  method set_path_two p2 = path_two <- p2
end;;


